home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / uhr spritegen. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  67 lines
  1. 100 rem   ***  analoguhr ***
  2. 110 rem   marc michaelis
  3. 120 rem   pfarrhoehe 11
  4. 130 rem   8507 oberasbach
  5. 140 rem
  6. 150 ifa=0thena=1:load"uhr prg.",8,1
  7. 160 forj=0to83
  8. 170 ifj=0orj=60thenx1=0:y1=20
  9. 180 ifj=15orj=66thenx1=0:y1=0
  10. 190 ifj=30orj=72thenx1=20:y1=0
  11. 200 ifj=45orj=78thenx1=20:y1=20
  12. 210 gosub460
  13. 220 readx2,y2
  14. 230 gosub370
  15. 240 w=40960+64*j
  16. 250 gosub480
  17. 260 next
  18. 270 forj=46336to46591
  19. 280 reada:pokej,a
  20. 290 next
  21. 300 forj=832to880:reada:pokej,a:next
  22. 310 sys 832
  23. 320 end
  24. 330 rem plot
  25. 340 q=y*3+int(x/8)+832:q1=2^(7-(x-int(x/8)*8))
  26. 350 pokeq,peek(q)orq1
  27. 360 return
  28. 370 rem linie ziehen (x1,y1,x2,y2)
  29. 380 ifabs(x2-x1)<5then420
  30. 390 fori=x1tox2step(x2-x1)/20
  31. 400 y=int((y2-y1)/(x2-x1)*(i-x1)+y1)
  32. 410 x=int(i):gosub330:next:return
  33. 420 fori=y1toy2step(y2-y1)/20
  34. 430 x=int(((x2-x1)/(y2-y1)*(i-y1)+x1))
  35. 440 y=int(i):gosub330:next:return
  36. 450 rem loeschen sprite
  37. 460 fori=832to896:pokei,0:next:return
  38. 470 rem uebertragen sprite
  39. 480 fori=0to63:pokew+i,peek(832+i):next:return
  40. 490 rem data fuer zeiger ( x und y )
  41. 500 data0,0,2,0,4,1,6,1,8,2,10,3,12,4,13,5,15,7,16,8,17,10,18,12,19,14,19,16
  42. 510 data20,18
  43. 520 data20,0,20,2,19,4,19,6,18,8,17,10,16,12,15,13,13,15,12,16,10,17,8,18,6,19
  44. 530 data4,19,2,20
  45. 540 data20,20,18,20,16,19,14,19,12,18,10,17,8,16,7,15,5,13,4,12,3,10,2,8,1,6
  46. 550 data1,4,0,2
  47. 560 data0,20,0,18,1,16,1,14,2,12,3,10,4,8,5,7,7,5,8,4,10,3,12,2,14,1,16,1,18,0
  48. 570 data 0,10,3,10,5,11,7,13,9,15,10,17
  49. 580 data10,0,10,3,9,5,7,7,5,9,3,10
  50. 590 data20,10,17,10,15,9,13,7,11,5,10,3
  51. 600 data 10,20,10,17,11,15,13,13,15,11,17,10
  52. 610 rem zifferblatt sprites
  53. 620 data0,0,255,0,7,8,0,24,8,0,32,0,0,224,85,1,16,37,2,0,85,4,84,0,4,36,0,8
  54. 630 data84,0,8,0,0,24,0,0,37,64,0,32,128,0,65,64,0,64,0,0,64,0,0,128,0,0,128
  55. 640 data0,0,128,0,0,138,128,0,239,128,0,0,112,0,0,12,0,0,2,0,0,3,128,0,4,64
  56. 650 data0,0,32,0,16,16,0,16,8,0,16,4,0,0,4,0,0,6,0,0,169,0,0,161,0,0,160,128
  57. 660 data0,0,128,0,0,128,0,0,64,0,0,64,0,0,64,0,84,64,200,233,0,8,138,128,0
  58. 670 data128,0,0,128,0,0,128,0,0,85,80,0,85,80,0,73,80,0,32,0,0,36,0,0,24,0
  59. 680 data0,8,170,0,8,170,0,4,74,0,2,0,42,1,16,42,0,224,18,0,32,0,0,24,8,0,7
  60. 690 data8,0,0,255,141,0,85,192,0,84,64,0,0,64,0,0,64,0,0,64,2,160,128,2,160
  61. 700 data128,2,64,128,0,1,0,0,9,0,0,6,0,40,4,0,40,4,0,16,24,0,0,32,0,4,64,0
  62. 710 data3,128,0,2,0,0,12,0,0,112,0,0,128,0,0,0
  63. 720 rem daten fuer abspeicherroutine
  64. 730 data169,54,133,1,162,8,32,186,255,169,9,162,104,160,3,32,189,255,169,64
  65. 740 data133,251,169,156,133,252,169,251,162,0,160,182,32,216,255,169,55,133
  66. 750 data1,96,65,78,65,76,79,71,85,72,82
  67.